home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pas_all.zip
/
TI189.ASC
< prev
next >
Wrap
Text File
|
1992-08-12
|
5KB
|
199 lines
PRODUCT : TURBO DATABASE TOOLBOX NUMBER : 189
VERSION : 1.00x
OS : MS-DOS, CP/M-86, CP/M-80
DATE : July 14, 1986 PAGE : 1/3
TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
This handout describes the code modifications that upgrade the
Turbo Database Toolbox to version 1.01. Turbo Database Toolbox is
provided in source code (except for GINST). You can make these
changes directly to the source code.
It has been discovered that the serial numbers on Turbo Database
Toolbox diskettes are not completely reliable indicators of
whether these fixes have been incorporated. To be safe, take a
few minutes to review your copy of the Turbo Database Toolbox a
The Turbo Database Toolbox has been released as Version 1.00,
Version 1.01, and Version 3.00. Generally, the changes described
below will update Version 1.00 to Version 1.01. Again, look your
Version 1.01 over and verify that these fixes have been imple
If you have Version 3.00 of Turbo Database Toolbox, the changes
to ACCESS.BOX (or ACCESS3.BOX) have been incorporated along with
other changes relating to Turbo Pascal, Version 3.0). However,
you should look at the changes below that pertain to other
A. GENERAL CHANGES
If you make the changes listed below to Version 1.00 of the
Turbo Database Toolbox, change the headers of ACCESS.BOX,
GETKEY.BOX, ADDKEY.BOX, and DELKEY.BOX to say:
"TURBO-Access Version 1.01" and "Copyright (C) 1984, 85."
B. CHANGES TO ACCESS.BOX
Add lines 1) and 2) in the following two places:
Immediately after the "Assign(...)" in procedure MakeFile;
Immediately after the "Assign(...)" in procedure OpenFile:
1) IOstatus:=IOresult;
2) TaIOcheck(DatF, 0);
Add the following line immediately after "PutRec(...)"
in procedure CloseIndex:
Updated := false;
PRODUCT : TURBO DATABASE TOOLBOX NUMBER : 189
VERSION : 1.00x
OS : MS-DOS, CP/M-86, CP/M-80
DATE : July 14, 1986 PAGE : 2/3
TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
Note: Without the above change, an index file can become
corrupted if you close an index file, and then open
another while in the middle of your program.
C. CHANGES TO ADDKEY.BOX
In the very last three lines of the file, change:
FROM: end;
end;
end;
TO: end;
PP := 0;
end;
end;
D. CHANGES TO DELKEY.BOX
In the very last four lines of the file, change:
FROM: end;
end;
end;
end;
TO: end;
end;
PP := 0;
end;
end;
E. CHANGES TO SORT.BOX
About 17 lines after the main BEGIN of procedure QuickSort,
change:
FROM: M := (I+J) Div 2;
TO: M := (I+J) Shr 1;
PRODUCT : TURBO DATABASE TOOLBOX NUMBER : 189
VERSION : 1.00x
OS : MS-DOS, CP/M-86, CP/M-80
DATE : July 14, 1986 PAGE : 3/3
TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
Note: This is not just for efficiency, the old "Div 2"
version can cause an arithmetic run-time error when
sorting large files.
F. CHANGES TO SORT1.PAS AND SORT2.PAS
The TurboSort function should not be used as a parameter to
a Write or WriteLn statement, as this may result in an
illegal recursive call to Read or Write. Make the following
changes to the sample programs SORT1.PAS and SORT2.PAS
Add the following variable declaration to the VAR section of
both main programs (pages 71, 75, 78, and 82 of the Turbo
Database Toolbox manual).
x : integer;
Throughout SORT1.PAS and SORT2.PAS, replace each occurrence
of the following line:
WriteLn(TurboSort(SizeOf(CustRec)));
with the following TWO lines:
x:=TurboSort(SizeOf(CustRec));
WriteLn(x);
If this is not fixed in your copy of the Turbo Database
Toolbox, there will be one occurrence of this in SORT1.PAS,
and two in SORT2.PAS. See also pages 74, 76, 78 (two
occurrences) of the Turbo Database Toolbox Reference Manual.
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.